home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / TECHNICA / AUTOCAD / H108.ZIP / 1-2&A-Z.ZIP / 1-2&A-Z.LSP
Text File  |  1990-08-03  |  2KB  |  47 lines
  1. ;PROGRAM: 1-2&A-Z.LSP
  2. ;AUTHOR : Patrick Cragnolini
  3. (princ "PURPOSE: creates a suite of numbers starting from user defined\n")
  4. (princ "         start to user defined end, spaced by user defined displacement\n")
  5. (princ "         NOTE: Prior to use ,set the STYLE and UCS.\n")
  6. ;
  7. (defun 1-2&A-Z(/ inc alpnum rot count displ start ang endv)
  8. (setq count 0 endv 0 inc 1)
  9. (initget 1 "Alpha Num")
  10. (setq alpnum (getkword "Alphabetic or Numeric: "))
  11. (if (= alpnum "Num")
  12.     (progn
  13.          (while (>= count endv)
  14.                 (initget)
  15.                 (setq count (getint "Starting value: "))
  16.                 (initget 1)
  17.                 (setq endv (getint "Ending value: "))
  18.                 (initget 1)
  19.                 (setq inc (getint "Increment: "))
  20.          );end of while
  21.     );end of progn
  22.     (progn
  23.          (while (>= count endv)
  24.                 (setq count (ascii (getstring "Starting character: "))
  25.                       endv (ascii (getstring "Ending character: ")))
  26.          );end of while
  27.     );end of progn
  28. );endif 
  29. (initget 1)
  30. (setq start (getpoint "Starting point: "))
  31. (initget (+ 1 2 4))
  32. (setq displ (getdist start "Offset distance: "))
  33. (setq ang (getangle start "Offset direction:<0> ")
  34.       rot (getangle "Text rotation angle:<0> "))
  35. (if (null ang) (setq ang 0))
  36. (if (null rot) (setq rot 0) (setq rot (rtd rot)))
  37.       (while (<= count endv)
  38.              (if (= alpnum "Num")
  39.                  (command "text" start rot count)
  40.                  (command "text" start rot (chr count))
  41.              );endif
  42.              (setq start (polar start ang displ))
  43.              (setq count (+ count inc))
  44.       );end of while
  45. );end of defun
  46. (princ)
  47.